home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / workbench / commodity / opaquemove / remove / remove-opaquemove < prev   
Text File  |  1996-10-03  |  3KB  |  101 lines
  1. ;;----------------------------------------------------------------------------
  2. ;;
  3. ;; Remove-OpaqueMove - OpaqueMove removal script for Installer
  4. ;;
  5. ;; Copyright © 1996 Steve Koren, All Right reserved.
  6. ;;
  7. ;; Use following Icon tooltypes / Command line options:
  8. ;; APPNAME=OpaqueMove
  9. ;; MINUSER=AVERAGE
  10. ;;----------------------------------------------------------------------------
  11.  
  12. (complete 0)
  13.  
  14. (set locale 0)
  15.  
  16. (set #welcome           (cat "Welcome to the " @app-name " removal process."))
  17. (set #removing          (cat "Removing " @app-name " files..."))
  18. (set #notfound          (cat "Unable to find install directory."))
  19. (set #userstop          (cat "User stopped removal."))
  20. (set #danger            (cat "WARNING: This process will remove " @app-name
  21.                              " from your system.  Do you wish to proceed?\n\n"
  22.                              "NOTE: If you have OpaqueMove drawers open in "
  23.                              "workbench or otherwise locked, this script "
  24.                              "will not be able to remove them."))
  25.  
  26. (set #delwbs            (cat "Deleting OpaqueMove.info from WBStartup."))
  27. (set #delenv            (cat "Deleting OpaqueMove from env: and envarc:"))
  28. (set #deldir            (cat "Deleting %s directory."))
  29. (set #delenvprompt      (cat "Do you wish to delete the ENVARC:OpaqueMove "
  30.                              "directory?  NOTE: If you have not backed up "
  31.                              "your keyfile and preferences settings, you "
  32.                              "will lose them permanently if you proceed!!"))
  33.  
  34. ;=============================================================================
  35. ; Removal procedure
  36. ;=============================================================================
  37.  
  38. ; -- check for existance of MUI: ---------------------------------------------
  39.  
  40. (welcome #welcome)
  41.  
  42. ; -- select our install dir --------------------------------------------------
  43.  
  44. (set LastDir "")
  45. (set OM-Dir  "")
  46.  
  47. (if (exists "ENV:OpaqueMove/OM-Dir")
  48.     ((set LastDir (getenv "OpaqueMove/OM-Dir"))
  49.      (if (not (exists (tackon LastDir "OpaqueMove/OpaqueMove")))
  50.          (set LastDir ""))))
  51.  
  52. (complete 10)
  53. (set Reuse 0)
  54. (if (= LastDir "") (abort #notfound))
  55.  
  56. (set OM-Dir (tackon LastDir "OpaqueMove"))
  57.  
  58. (if (not (exists (tackon OM-Dir "OpaqueMove")))
  59.     (abort #notfound))
  60.  
  61.  
  62. ; -- ask user whether to stop ------------------------------------------------
  63.  
  64. (complete 20)
  65.  
  66. (if (not (askbool (prompt #danger)
  67.                   (help @askbool-help)
  68.                   (default 1)))
  69.     (abort #userstop))
  70.  
  71.  
  72. ; -- really remove stuff -----------------------------------------------------
  73.  
  74. (set @execute-dir "ram:")
  75.  
  76. (run (prompt #delwbs)
  77.      (help @run-help)
  78.      (confirm)
  79.      "c:delete" ">nil:" "SYS:WBStartup/OpaqueMove#?")
  80.  
  81. (run (prompt (#deldir OM-Dir))
  82.      (help @run-help)
  83.      (confirm)
  84.      "c:delete" ">nil:" OM-Dir (cat OM-Dir ".info") "ALL")
  85.  
  86. (complete 80)
  87.  
  88. (if (not (askbool (prompt #delenvprompt)
  89.                   (help @askbool-help)
  90.                   (default 1)))
  91.     (abort #userstop))
  92.  
  93. (run (prompt #delenv)
  94.      (help @run-help)
  95.      (confirm)
  96.      "c:delete" ">nil:" "ENV:OpaqueMove" "ENVARC:OpaqueMove" "ALL")
  97.  
  98. (complete 100)
  99.  
  100. (exit)
  101.